Attribute VB_Name = "PICModule"
Sub pointbinary(file As String, Size As Long, Optional style As Boolean = True)
    
End Sub

Function ff(num As String) As Long
    Dim r As Long
    Select Case Right(num, 1)
        Case "0"
            r = 0
        Case "1"
            r = 1
        Case "2"
            r = 2
        Case "3"
            r = 3
        Case "4"
            r = 4
        Case "5"
            r = 5
        Case "6"
            r = 6
        Case "7"
            r = 7
        Case "8"
            r = 8
        Case "9"
            r = 9
        Case "a"
            r = 10
        Case "b"
            r = 11
        Case "c"
            r = 12
        Case "d"
            r = 13
        Case "e"
            r = 14
        Case "f"
            r = 15
    End Select
    Select Case Left(num, 1)
        Case "0"
            r = r + 0
        Case "1"
            r = r + 16
        Case "2"
            r = r + 16 * 2
        Case "3"
            r = r + 16 * 3
        Case "4"
            r = r + 16 * 4
        Case "5"
            r = r + 16 * 5
        Case "6"
            r = r + 16 * 6
        Case "7"
            r = r + 16 * 7
        Case "8"
            r = r + 16 * 8
        Case "9"
            r = r + 16 * 9
        Case "a"
            r = r + 16 * 10
        Case "b"
            r = r + 16 * 11
        Case "c"
            r = r + 16 * 12
        Case "d"
            r = r + 16 * 12
        Case "e"
            r = r + 16 * 13
        Case "f"
            r = r + 16 * 15
    End Select
    ff = r
End Function

